1100
Is it is possible to exclude the non-working days when displaying the histogram using the exBarEffort for exHistOverAllocation type

OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 40");
	_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramHeight", 64);
	_ObjectSetProperty( chart , "HistogramView", 112);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Split`)");
		_ObjectSetProperty( bar , "Pattern", 6);
		_ObjectSetProperty( bar , "Shape", 18);
		_ObjectSetProperty( bar , "Color", 8388608);
	bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
		_ObjectSetProperty( bar , "Color", 8388608);
		_ObjectSetProperty( bar , "Shortcut", "WorkingTask");
		_ObjectSetProperty( bar , "Pattern", 6);
		_ObjectSetProperty( bar , "HistogramPattern", 6);
		_ObjectSetProperty( bar , "HistogramType", 1);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "Color", 16711680);
		_ObjectSetProperty( bar , "Pattern", 5);
		_ObjectSetProperty( bar , "HistogramType", 1);
		_ObjectSetProperty( bar , "HistogramPattern", 5);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "True");
	_ObjectCallMethod( items , "AddBar", h,"WorkingTask","6/23/2005","6/29/2005");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = 4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,20) = True");
	h = _ObjectCallMethod( items , "AddItem", "False");
	_ObjectCallMethod( items , "AddBar", h,"Task","6/23/2005","6/29/2005");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,21) = 4");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,20) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
1099
I display numbers in my chart, but the AddBar requires a date how can I add a bar
OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", 0);
	_ObjectSetProperty( chart , "ToolTip", "");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%i%>");
		_ObjectSetProperty( level , "ToolTip", "");
	_ObjectSetProperty( chart , "UnitWidth", 24);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task",2,4);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task",6,10);
_ObjectCallMethod( g2antt , "EndUpdate");
1098
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
// DateChange event - Occurs when the first visible date is changed.
FUNCTION g2anttEvents_DateChange()
	_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", 0);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartEnable(2,1024) = False");
END

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", 0);
	_ObjectSetProperty( chart , "ToolTip", "");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%i%>");
		_ObjectSetProperty( level , "ToolTip", "<%i%>");
	_ObjectSetProperty( chart , "UnitWidth", 24);
_ObjectCallMethod( g2antt , "EndUpdate");
1097
How can I display numbers in the chart's header instead dates

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", 0);
	_ObjectSetProperty( chart , "ToolTip", "");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%i%>");
		_ObjectSetProperty( level , "ToolTip", "");
	_ObjectSetProperty( chart , "UnitWidth", 24);
_ObjectCallMethod( g2antt , "EndUpdate");
1096
How can I create a bar that's not sizable, or can not be resized by default similar with milestone
OBJECT bar,chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/24/2000");
	_ObjectSetProperty( chart , "LevelCount", 2);
	bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Custom");
		_ObjectSetProperty( bar , "Shape", 0);
		_ObjectSetProperty( bar , "StartShape", 1);
		_ObjectSetProperty( bar , "EndShape", 0);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", ""),"Custom","1/2/2001","1/2/2001","K1","This TYPE of bar can not be resized.");
_ObjectCallMethod( g2antt , "EndUpdate");
1095
Is it possible to hide the non-working parts for items using the ItemNonworkingUnits, even if set the ShowNonworkingUnits, ShowNonworkingDates on False

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "NonworkingDaysPattern", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h2,False) = `weekday(value) = 1`");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/4/2001","1/6/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod( g2antt , "EndUpdate");
1094
Is it possible to show the non-working parts for certain items, even if I hide the default non-working part

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h2,False) = `weekday(value) = 1`");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/4/2001","1/6/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod( g2antt , "EndUpdate");
1093
How can I hide the non-working part of the chart
OBJECT chart,g2antt;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
1092
Is it possible to let users selects cells as in Excel
OBJECT column,columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "FullRowSelect", 1);
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectSetProperty( g2antt , "ReadOnly", -1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
_ObjectSetProperty( g2antt , "SelBackColor", 15917512);
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectCallMethod( columns , "Add", "A");
	column = _ObjectCallMethod( columns , "Add", "B");
		_ObjectSetProperty( column , "AllowSizing", 0);
		_ObjectSetProperty( column , "Width", 24);
	column = _ObjectCallMethod( columns , "Add", "C");
		_ObjectSetProperty( column , "AllowSizing", 0);
		_ObjectSetProperty( column , "Width", 24);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
		_ObjectCallMethod(g2antt, "TemplatePut", column)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = 1");
		_ObjectSetProperty( column , "PartialCheck", -1);
	column = _ObjectCallMethod( columns , "Add", "D");
		_ObjectSetProperty( column , "AllowSizing", 0);
		_ObjectSetProperty( column , "Width", 24);
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(1) = 1");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "InsertItem", "","","Group 1");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"",16);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 17");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"",2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 11");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"",2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(h1) = 15790320");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 9");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "InsertItem", "","","Group 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,2) = 1");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"",16);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 9");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"",12);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 11");
	h1 = _ObjectCallMethod( items , "InsertItem", h,"",2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1091
How can I hide a date from the chart view
OBJECT chart,g2antt,insidezooms;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "AllowInsideZoom", -1);
	_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
	_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
	insidezooms = _ObjectGetProperty( chart , "InsideZooms");
		_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
		_ObjectSetProperty( insidezooms , "DefaultWidth", 0);
		_ObjectCallMethod( insidezooms , "Add", "1/4/2008");
		_ObjectCallMethod( insidezooms , "Add", "1/5/2008");
		_ObjectCallMethod( insidezooms , "Add", "1/6/2008");
	_ObjectSetProperty( chart , "SelectLevel", 1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/5/2008#) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1090
Can the SchedulePDM displays and edit the working units for my bars

// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
	_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SchedulePDM", Item,Key);
END

OBJECT chart,column,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
	_ObjectCallMethod(g2antt, "TemplatePut", column)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
	_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
	_ObjectSetProperty( chart , "AllowLinkBars", 0);
	_ObjectSetProperty( chart , "AllowCreateBar", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FF`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
	h4 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h4,"Task","1/2/2001","1/4/2001","");
	_ObjectCallMethod( items , "AddLink", "L3",h4,"",h3,"");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,20) = True");
	_ObjectCallMethod( items , "SchedulePDM", _ObjectGetProperty( items , "FirstVisibleItem"),"");
_ObjectCallMethod( g2antt , "EndUpdate");
1089
Can the SchedulePDM displays the working units for my bars
// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
	_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SchedulePDM", Item,Key);
END

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Working`).Def(18) = 258");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
	_ObjectSetProperty( chart , "AllowLinkBars", 0);
	_ObjectSetProperty( chart , "AllowCreateBar", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FF`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
	h4 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h4,"Task","1/2/2001","1/4/2001","");
	_ObjectCallMethod( items , "AddLink", "L3",h4,"",h3,"");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,20) = True");
	_ObjectCallMethod( items , "SchedulePDM", _ObjectGetProperty( items , "FirstVisibleItem"),"");
_ObjectCallMethod( g2antt , "EndUpdate");
1088
Can the SchedulePDM keeps the working units for my bars
// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
	_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SchedulePDM", Item,Key);
END

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "AllowLinkBars", 0);
	_ObjectSetProperty( chart , "AllowCreateBar", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FF`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
	h4 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h4,"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod( items , "AddLink", "L3",h4,"K4",h3,"K3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,20) = True");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1087
How can I arrange automatically the bars based on their links as soon as user moves the bars
// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
	_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SchedulePDM", Item,Key);
END

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "AllowLinkBars", 0);
	_ObjectSetProperty( chart , "AllowCreateBar", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FF`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
	h4 = _ObjectCallMethod( items , "AddItem", "Task 4");
	_ObjectCallMethod( items , "AddBar", h4,"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod( items , "AddLink", "L3",h4,"K4",h3,"K3");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1086
How can I arrange automatically the bars based on their links as soon as user moves the bars
// BarResize event - Occurs when a bar is moved or resized.
FUNCTION g2anttEvents_BarResize(OBJECT g2antt, INT Item, VARIANT Key)
	_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "SchedulePDM", Item,Key);
END

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "AllowLinkBars", 0);
	_ObjectSetProperty( chart , "AllowCreateBar", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1085
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
// ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
FUNCTION g2anttEvents_ScrollButtonClick(OBJECT g2antt, INT ScrollBar, INT ScrollPart)
	Message( ScrollBar );
	Message( ScrollPart );
END

OBJECT g2antt;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartVisible(1,32768) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartVisible(1,16384) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartVisible(1,1) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ScrollPartVisible(1,2) = True");
_ObjectSetProperty( g2antt , "ScrollBars", 5);
1084
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION g2anttEvents_AnchorClick(OBJECT g2antt, STRING AnchorID, STRING Options)
	Message( AnchorID );
	Message( Options );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Default`).Def(17) = 1");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", "This is a link: <aex.com;1>www.exontrol.com</a>");
	_ObjectCallMethod( items , "AddItem", "This is a link: <aex.net;2>www.exontrol.net</a>");
1083
Is it possible to start editing a cell when double click it
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION g2anttEvents_DblClick(OBJECT g2antt, INT Shift, INT X, INT Y)
	_ObjectCallMethod( g2antt , "Edit", );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AutoEdit", 0);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit1") , "Editor") , "EditType", 1);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit2") , "Editor") , "EditType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(1),1) = 2");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(3),1) = 4");
_ObjectCallMethod( g2antt , "EndUpdate");
1082
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION g2anttEvents_DblClick(OBJECT g2antt, INT Shift, INT X, INT Y)
	_ObjectCallMethod( g2antt , "Edit", );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AutoEdit", 0);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit1") , "Editor") , "EditType", 1);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit2") , "Editor") , "EditType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(1),1) = 2");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(3),1) = 4");
_ObjectCallMethod( g2antt , "EndUpdate");
1081
How can I get or restore the old or previously value for the cell being changed
// Change event - Occurs when the user changes the cell's content.
FUNCTION g2anttEvents_Change(OBJECT g2antt, INT Item, INT ColIndex, VARIANT NewValue)
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,ColIndex,Item")
	_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
	_ObjectCallMethod(g2antt, "TemplatePut", ColIndex)
	_ObjectCallMethod(g2antt, "TemplatePut", Item)
	Message( "Old-Value:" );
	Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellValue(Item,ColIndex)") );
	Message( "New-Value:" );
	Message( NewValue );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit1") , "Editor") , "EditType", 1);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit2") , "Editor") , "EditType", 1);
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(1),1) = 2");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(3),1) = 4");
_ObjectCallMethod( g2antt , "EndUpdate");
1080
How can I display the number of items being found after filtering
// FilterChange event - Occurs when the filter was changed.
FUNCTION g2anttEvents_FilterChange()
	_ObjectSetProperty( g2antt , "FilterBarCaption", _ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "VisibleCount"));
END

OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1079
How can I highligth the item from the cursor as it moves
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
	OBJECT items;
	_ObjectCallMethod( g2antt , "BeginUpdate");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
	_ObjectCallMethod(g2antt, "TemplatePut", c)
	_ObjectCallMethod(g2antt, "TemplatePut", hit)
	h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
	items = _ObjectGetProperty( g2antt , "Items");
		_ObjectCallMethod( items , "ClearItemBackColor", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Background(1000)"));
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
		_ObjectCallMethod(g2antt, "TemplatePut", items)
		_ObjectCallMethod(g2antt, "TemplatePut", h)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15792880");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(1000) = h");
	_ObjectCallMethod( g2antt , "EndUpdate");
END

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15792880);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "SelBackColor", 15792880);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "R1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "R2");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1078
How can I get the item from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
	_ObjectCallMethod(g2antt, "TemplatePut", c)
	_ObjectCallMethod(g2antt, "TemplatePut", hit)
	h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	Message( "Handle" );
	Message( h );
	Message( "Index" );
	Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemToIndex(h)") );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "R1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "R2");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1077
How can I get the column from the cursor, not only in the header
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
	Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "ColumnFromPoint(-1,0)") );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P2");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "R1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `R2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1076
How can I get the column from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
	Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "ColumnFromPoint(-1,-1)") );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P2");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "R1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `R2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1075
How can I get the cell's caption from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
	_ObjectCallMethod(g2antt, "TemplatePut", c)
	_ObjectCallMethod(g2antt, "TemplatePut", hit)
	h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,c,h")
	_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
	_ObjectCallMethod(g2antt, "TemplatePut", c)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(h,c)") );
END

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "R1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
	h = _ObjectCallMethod( items , "AddItem", "R2");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
	_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1074
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 33);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "C2");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "C3");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem 1.2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem 1.3`");
	h = _ObjectCallMethod( items , "AddItem", "Item 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem 2.2`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem 2.3`");
_ObjectCallMethod( g2antt , "EndUpdate");
1073
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar

OBJECT bar,chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineColor", 14474460);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 256);
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "DrawGridLines", -1);
		_ObjectSetProperty( level , "GridLineColor", 14474460);
	bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
		_ObjectSetProperty( bar , "Pattern", 1);
		_ObjectSetProperty( bar , "Height", 14);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
_ObjectCallMethod( g2antt , "EndUpdate");
1072
Is it possible to change the style for the vertical grid lines, in the chart area only

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 12);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 12);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = True");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "GridLineColor", 255);
		_ObjectSetProperty( level , "GridLineStyle", 32);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
_ObjectCallMethod( g2antt , "EndUpdate");
1071
Is it possible to change the style for the grid lines, for instance to be solid not dotted

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 48);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 48);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
_ObjectCallMethod( g2antt , "EndUpdate");
1070
How can I show the grid lines for the chart and list area

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
1069
In the level of the chart we are showing the week number of the year (1-53) (Week: ww). However the weeknumber isn't correct. In western Europe the week of 04/01/2010 till 10/01/2010 is weeknumber 1, however the g2antt says it's week 2

OBJECT chart,g2antt;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2009");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `Week: <%ww%>/<%yyyy%>`");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
1068
How can I determine the current visible date range of the gantt chart area
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/6/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2001","1/7/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/4/2001","1/8/2001");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/6/2001","1/10/2001");
Message( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "StartPrintDate") );
Message( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "EndPrintDate") );
1067
How can I change the progress bar using a spin editor using values from 0 to 100

OBJECT chart,column,columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectCallMethod( columns , "Add", "Task");
	column = _ObjectCallMethod( columns , "Add", "Percent");
		_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
		_ObjectCallMethod(g2antt, "TemplatePut", column)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 518");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task%Progress","1/2/2001","1/6/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = 40");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task%Progress","1/2/2001","1/6/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = 50");
_ObjectCallMethod( g2antt , "EndUpdate");
1066
Is it possible to display the histogram for selected bars only

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "HistogramVisible", -1);
	_ObjectSetProperty( chart , "HistogramView", 8);
	_ObjectSetProperty( chart , "HistogramHeight", 32);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/5/2001",1);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/4/2001","1/7/2001",2);
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/6/2001",3);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,2,257) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,3,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1065
How can I fix a bar, so it is not selectable, moveable or resizable, fixed in other words
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/8/2001","K1","Unselectable");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,29) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
1064
How can I fix a bar, so it is not moveable or resizable
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1","Fixed");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,10) = False");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,11) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
1063
Is is possible to fix a bar during PDM scheduling
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"TaskF","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,10) = False");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,11) = False");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"TaskF","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h3)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h3,`K3`,10) = False");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h3,`K3`,11) = False");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1062
How can I specify that during scheduling the link, bars should be delayed, on working part

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/1/2001","1/3/2001","K1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,20) = True");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h2,`K2`,20) = True");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h3)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h3,`K3`,20) = True");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `link delays the bars<br>for <b>2</b> working days`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,16) = 2");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1061
How can I specify that during scheduling the link, bars should be delayed

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `   Finish-Start<br>delayed <b>4</b> days`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,17) = 4");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1060
The SchedulePDM method put the bars on non-working part, how can I prevent that

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h1)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,20) = True");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h2)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h2,`K2`,20) = True");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h3)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h3,`K3`,20) = True");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FS`");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1059
How can I add a SF (Start-Finish) link so activities get arranged using the SchedulePDM

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `SF`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 0");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1058
How can I add a SS (Start-Start) link so activities get arranged using the SchedulePDM

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `SS`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 0");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 0");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1057
How can I add a FF (Finish-Finish) link so activities get arranged using the SchedulePDM

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FF`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,6) = 2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,7) = 2");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1056
How can I add a FS (Finish-Start) link so activities get arranged using the SchedulePDM

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/5/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `FS`");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/6/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `FS`");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1055
How can I schedule activities in the project plan
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h3,"K3",h2,"K2");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1054
How do I arrange the bars based on the links

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
	h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h2,"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
	h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
	_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
	_ObjectCallMethod( items , "SchedulePDM", 0,"K1");
_ObjectCallMethod( g2antt , "EndUpdate");
1053
Is is possible to use HTML tags to display in the filter caption
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarCaption", "This is a bit of text being displayed in the filter bar.");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddItem", "Item 1");
	_ObjectCallMethod( items , "AddItem", "Item 2");
	_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( g2antt , "EndUpdate");
1052
How can I find the number of items after filtering
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = VisibleItemCount");
_ObjectCallMethod( g2antt , "EndUpdate");
1051
How can I change the filter caption
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 12801);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london robert");
_ObjectSetProperty( g2antt , "FilterBarCaption", "<r>Found: ... ");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1050
While using the filter prompt is it is possible to use wild characters
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 16);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "lon* seat*");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1049
How can I list all items that contains any of specified words, not necessary at the beggining
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 4610);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london davolio");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1048
How can I list all items that contains any of specified words, not strings
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 12802);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london nancy");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1047
How can I list all items that contains all specified words, not strings
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 12801);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london robert");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1046
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 258);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "Anne");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1045
Is it possible to list only items that ends with any of specified strings
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 4);
_ObjectSetProperty( g2antt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "Fuller");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1044
Is it possible to list only items that ends with any of specified strings
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 4);
_ObjectSetProperty( g2antt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "Fuller");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1043
Is it possible to list only items that starts with any of specified strings
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 3);
_ObjectSetProperty( g2antt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "An M");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1042
Is it possible to list only items that starts with specified string
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 3);
_ObjectSetProperty( g2antt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1041
How can I specify that the list should include any of the seqeunces in the pattern
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 2);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london seattle");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1040
How can I specify that all sequences in the filter pattern must be included in the list
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london manager");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1039
How do I change at runtime the filter prompt
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london manager");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1038
How do I specify to filter only a single column when using the filter prompt
OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPromptColumns", "2,3");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "london");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1037
How do I change the prompt or the caption being displayed in the filter bar
OBJECT columns,g2antt;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( g2antt , "FilterBarPrompt", "changed");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
_ObjectCallMethod( g2antt , "EndUpdate");
1036
How do I enable the filter prompt feature

OBJECT columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "FocusColumnIndex", 1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", -1);
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
	_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
	_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( g2antt , "Items");
	h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h0)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
	h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
	h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
	h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
	h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
	h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
1035
How can I unselect all bars
OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,257) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,257) = False");
1034
Can I select bars using a pattern using wild characters as *,

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1K","K1K");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2M","K2M");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/9/2001","1/11/2001","K3K","K3K");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","M","M");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<K*K>`,257) = True");
1033
How can I select all bars in the item with a specified key

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2","K2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/9/2001","1/11/2001","P","P");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","M","M");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<K*>`,257) = True");
1032
How can I select all bars in the specified item

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2","K2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/9/2001","1/11/2001","P","P");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","M","M");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<*>`,257) = True");
1031
How can I select all bars with a specified key

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2","K2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/10/2001","P","P");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","P","P");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<P>`,257) = True");
1030
How can I select all bars

OBJECT g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2","K2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/10/2001","P","P");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","M","M");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,257) = True");
1029
I have the AllowInsideZoom property on True, but I am still not able to use the inside zoom feature

OBJECT chart,g2antt,insidezoomformat,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 3);
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `Week: <%ww%>`");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "Alignment", 1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(2).Label = 65536");
	_ObjectSetProperty( chart , "NonworkingHours", 16773375);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "AllowInsideZoom", -1);
	insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
		_ObjectSetProperty( insidezoomformat , "InsideUnit", 1048576);
		_ObjectSetProperty( insidezoomformat , "InsideLabel", "<b><%nn%></b>");
	_ObjectCallMethod( _ObjectGetProperty( chart , "InsideZooms") , "Add", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( g2antt , "EndUpdate");
1028
Is there any option to find out if two bars intersects

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "InterectBars");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 1");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/5/2001","B","B");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = IntersectBars(h,`A`,h,`B`)");
	h = _ObjectCallMethod( items , "AddItem", "");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/6/2001","1/9/2001","A","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/13/2001","B","B");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = IntersectBars(h,`A`,h,`B`)");
	h = _ObjectCallMethod( items , "AddItem", "");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/6/2001","1/9/2001","B","B");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/13/2001","A","A");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = IntersectBars(h,`A`,h,`B`)");
_ObjectCallMethod( g2antt , "EndUpdate");
1027
How can I find if a specified hour is a working or non-working hour, when using the ItemNonWorkingUnits

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Hour") , "FormatColumn", "hour(value)");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Type") , "FormatColumn", "value != 0 ? 'non-working' : 'working'");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 164");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "UnitScale", 65536);
	_ObjectSetProperty( chart , "NonworkingHours", 1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0))");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `hour(value) >0 `");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0),h)");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
_ObjectCallMethod( g2antt , "EndUpdate");
1026
How can I find if a specified hour is a working or non-working hour
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Hour") , "FormatColumn", "hour(value)");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Type") , "FormatColumn", "value != 0 ? 'non-working' : 'working'");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 164");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "UnitScale", 65536);
	_ObjectSetProperty( chart , "NonworkingHours", 1);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0))");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001 1:00:00 AM");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0))");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
_ObjectCallMethod( g2antt , "EndUpdate");
1025
How can I find if a specified date-time is a working or non-working unit, when using the ItemNonWorkingUnits
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date") , "Width", 48);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Type") , "FormatColumn", "value != 0 ? 'non-working' : 'working'");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 128");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0))");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) in (1)`");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0),h)");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
_ObjectCallMethod( g2antt , "EndUpdate");
1024
How can I find if a specified date-time is a working or non-working unit
OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date") , "Width", 48);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Type") , "FormatColumn", "value != 0 ? 'non-working' : 'working'");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 128");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0))");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
	h = _ObjectCallMethod( items , "AddItem", "1/6/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim h")
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	w = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Chart.IsNonworkingDate(Me.ItemsCellValue(h,0))");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = w");
_ObjectCallMethod( g2antt , "EndUpdate");
1023
When zooming to days, the non-working part of the chart occupies some not useful space. Can I reduce it

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `Week: <%ww%>`");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%d%>/<%m2%>");
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? 'end' : value");
	_ObjectSetProperty( chart , "UnitWidth", 32);
	_ObjectSetProperty( chart , "UnitWidthNonworking", -32);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Default");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002","1/8/2002","A");
_ObjectCallMethod( g2antt , "EndUpdate");
1022
My chart display only working hours, but when zooming to days, each day shows the non-working part of the day too, even if I use the ShowNonWorkingUnits property on False. What am I doing wrong

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002 10:00:00 AM");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ww%>`");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%dd%>");
		_ObjectSetProperty( level , "Unit", 65536);
		_ObjectSetProperty( level , "Count", 24);
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidth", 32);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Default");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002 10:00:00 AM","1/8/2002 2:00:00 AM","A");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1021
I need to display only working hours and weekend part, but for some items I need another non-working part. Is this possible

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%ddd%>");
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? '' : value");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? 'end' : value");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidthNonworking", -24);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Default");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002","1/8/2002","A");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
	h = _ObjectCallMethod( items , "AddItem", "Friday");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2002","1/7/2002 12:00:00 PM","A");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14`");
	h = _ObjectCallMethod( items , "AddItem", "Till 13");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002","1/7/2002 12:00:00 PM","A");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13`");
_ObjectCallMethod( g2antt , "EndUpdate");
1020
I can display the working hours, but how can I hide the weekend or non-working part of the chart when using the ShowNonWorkingUnits property on False

OBJECT chart,g2antt;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ddd%>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
1019
How can I display only the working hours but uses less space for non-working part, such as weekend

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%ddd%>");
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? '' : value");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? 'end' : value");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidthNonworking", -24);
1018
How can I display only the working hours but uses less space for non-working part, such as weekend

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ddd%>`");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? '' : value");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidthNonworking", 8);
1017
How can I display only the working hours

OBJECT chart,g2antt;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ddd%>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
1016
How can I specify non-working hours

OBJECT chart,g2antt;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ddd%>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
1015
How can I display the working hours for a bar

OBJECT chart,column,columns,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
	_ObjectCallMethod( columns , "Add", "Tasks");
	column = _ObjectCallMethod( columns , "Add", "Working");
		_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
		_ObjectCallMethod(g2antt, "TemplatePut", column)
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
		_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `A`");
		_ObjectSetProperty( column , "FormatColumn", "(0:=round(value*24)) != 0 ? =:0 : ''");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ddd%>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = `<%hh%>`");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002","1/8/2002","A");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
	h = _ObjectCallMethod( items , "AddItem", "Task 2");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2002","1/4/2002","A");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1014
Is it possible to show only working hours, showing a small part for the weekend days, and in the same time showing the bars by splitting the non-working part and keeping the working units for the bar while moving

OBJECT chart,g2antt,items,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 512);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%ddd%>");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? `` : value");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "DrawGridLines", -1);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidthNonworking", -40);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002","1/8/2002","A");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
1013
How can I show bars with different solid color but black border

OBJECT bar,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
	_ObjectSetProperty( bar , "Color", 16777216);
	_ObjectSetProperty( bar , "Height", 15);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 0");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 65535");
	h = _ObjectCallMethod( items , "AddItem", "Task");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
1012
I want to display a vertical line for each week, while I still need a vertical separator for each day. Is this possible

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "GridLineColor", 15790320);
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "NonworkingDays", 0);
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "DrawGridLines", -1);
		_ObjectSetProperty( level , "GridLineColor", 0);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "DrawGridLines", -1);
		_ObjectSetProperty( level , "GridLineColor", 15790320);
1011
How can I display the levels as year, day, AM and PM for each day
OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/1/2009");
	_ObjectSetProperty( chart , "UnitWidth", 22);
	_ObjectSetProperty( chart , "LevelCount", 3);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%yyyy%>`");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = `<%mm%>/<%dd%>`");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(2)");
		_ObjectSetProperty( level , "Label", "<%AM/PM%>");
		_ObjectSetProperty( level , "Count", 12);
1010
How can I change the pattern for a specified time unit, in the chart area

OBJECT chart,g2antt,insidezoomformat,insidezooms;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
	_ObjectSetProperty( chart , "AllowInsideZoom", -1);
	_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
	_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
	insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
		_ObjectSetProperty( insidezoomformat , "PatternChart", 6);
		_ObjectSetProperty( insidezoomformat , "PatternColorChart", 255);
	insidezooms = _ObjectGetProperty( chart , "InsideZooms");
		_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
		_ObjectSetProperty( insidezooms , "DefaultWidth", 18);
		_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "1/4/2008") , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
1009
How can I hide the non-working hours, but still display the non-working days with even less space

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "11/19/2009");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 512);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? `` : value");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "DrawGridLines", -1);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidth", 32);
	_ObjectSetProperty( chart , "UnitWidthNonworking", -32);
_ObjectCallMethod( g2antt , "EndUpdate");
1008
How can I hide the non-working hours, but still display the non-working days with less space

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "11/19/2009");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 512);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "Alignment", 1);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value");
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "DrawGridLines", -1);
		_ObjectSetProperty( level , "FormatLabel", "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value");
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
	_ObjectSetProperty( chart , "UnitWidth", 32);
	_ObjectSetProperty( chart , "UnitWidthNonworking", 12);
_ObjectCallMethod( g2antt , "EndUpdate");
1007
How can I hide the non-working hours, but still display the non-working days

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "11/19/2009");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 512);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "Alignment", 1);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
1006
How can I hide the non-working hours, and the non-working days

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstVisibleDate", "11/19/2009");
	_ObjectSetProperty( chart , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "GridLineStyle", 512);
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
		_ObjectSetProperty( level , "Label", "<%dddd%>");
		_ObjectSetProperty( level , "Alignment", 1);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", 65536);
		_ObjectSetProperty( level , "DrawGridLines", -1);
	_ObjectSetProperty( chart , "NonworkingHours", 16761855);
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
1005
Can I highlights the non-working hours while my chart shows days

OBJECT chart,g2antt,level;

g2antt =  ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectSetProperty( chart , "UnitWidth", 48);
	_ObjectSetProperty( chart , "LevelCount", 2);
	level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
		_ObjectSetProperty( level , "Label", "<%d%>");
		_ObjectSetProperty( level , "Unit", 65536);
		_ObjectSetProperty( level , "Count", 24);
	_ObjectSetProperty( chart , "NonworkingHours", 127);
1004
How can I reduce the space/area being occupied by non-working units days or hours (method 2)

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "UnitWidthNonworking", -8);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).FormatLabel = `weekday(dvalue) in (0,6) ? '.' : value`");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/6/2001","K2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<*>`,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
1003
How can I reduce the space/area being occupied by non-working units days or hours (method 1)

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "UnitWidthNonworking", 4);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).FormatLabel = `weekday(dvalue) in (0,6) ? '' : value`");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/6/2001","K2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<*>`,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
1002
How can I hide the non-working units

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectSetProperty( chart , "FirstWeekDay", 1);
	_ObjectSetProperty( chart , "LevelCount", 2);
	_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
	_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
	_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
	_ObjectSetProperty( chart , "DrawGridLines", 2);
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).DrawGridLines = True");
	_ObjectSetProperty( chart , "GridLineStyle", 512);
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "Task 1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/6/2001","K2");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K3");
	_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`<*>`,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
1001
How can I determine that a certain bar is the topmost (zorder)

OBJECT chart,g2antt,items;

g2antt =  ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
	_ObjectCallMethod(g2antt, "TemplatePut", chart)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
	_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
items = _ObjectGetProperty( g2antt , "Items");
	h = _ObjectCallMethod( items , "AddItem", "B in front");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","A");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/5/2001","B","<fgcolor=FF0000>B</fgcolor>");
	_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
	_ObjectCallMethod(g2antt, "TemplatePut", items)
	_ObjectCallMethod(g2antt, "TemplatePut", h)
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,18) = -2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,4) = 18");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,33) = 255");
	h = _ObjectCallMethod( items , "AddItem", "A in back");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","A","<fgcolor=FF0000>A</fgcolor>");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,18) = -2");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,4) = 18");
	_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,33) = 255");
	_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/5/2001","B");
_ObjectCallMethod( g2antt , "EndUpdate");